﻿Public Class frmCollectionString
    Public items As String

    Sub New(Optional ByVal s As String = "")

        items = s
        ' This call is required by the Windows Form Designer.
        InitializeComponent()

        ' Add any initialization after the InitializeComponent() call.

    End Sub



    Private Sub btnAccept_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAccept.Click
        items = txtItems.Text
        Me.Close()
    End Sub

    Private Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.Close()
    End Sub

    Private Sub frmCollectionString_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        txtItems.Text = items
        txtItems.Focus()
    End Sub
End Class